﻿Public Class BuscarCliente
    Dim funcion As New Funciones
    Dim acceso As New acceso
    Dim comando As New SqlClient.SqlCommand
    Dim cliente As New Cliente()
    Private Sub BuscarCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarGrilla()
        acceso.cargarCombo(cmb_responsable_inscripto, "ResponsableInscripto", "nombre", "idResponsable")

    End Sub

    Private Sub cargarGrilla()

        Dim tabla As New Data.DataTable()
        tabla = acceso.leo_tabla("VistaClientes where nroCliente != 3")
        dgv_Clientes.DataSource = tabla
        acomodarGrilla()
    End Sub
    Private Sub acomodarGrilla()
        dgv_Clientes.Columns("nroCliente").HeaderText = "Nº Cliente"
        dgv_Clientes.Columns("cuit").HeaderText = "CUIT"
        dgv_Clientes.Columns("responsableInscripto").HeaderText = "Responsable Inscripto"
        dgv_Clientes.Columns("nombre").HeaderText = "Nombre Cliente"
        dgv_Clientes.Columns("apellido").HeaderText = "Apellido Cliente"
        dgv_Clientes.Columns("tipoDoc").HeaderText = "Tipo Documento"
        dgv_Clientes.Columns("documento").HeaderText = "Nº Documento"
        dgv_Clientes.Columns("email").HeaderText = "Email"
        dgv_Clientes.Columns("barrio").HeaderText = "Barrio"
        dgv_Clientes.Columns("calle").HeaderText = "Calle"
        dgv_Clientes.Columns("numero").HeaderText = "Numero"
        dgv_Clientes.Columns("piso").HeaderText = "Piso"
        dgv_Clientes.Columns("departamento").HeaderText = "Depto"
        dgv_Clientes.Columns("localidad").HeaderText = "Localidad"
        dgv_Clientes.Columns("provincia").HeaderText = "Provincia"
        dgv_Clientes.Columns("nroCliente").Width = 80
        dgv_Clientes.Columns("tipoDoc").Width = 50
        dgv_Clientes.Columns("documento").Width = 80
        dgv_Clientes.Columns("numero").Width = 40
        dgv_Clientes.Columns("piso").Width = 30
        dgv_Clientes.Columns("departamento").Width = 50
        dgv_Clientes.Columns("idTipoDocumento").Visible = False
        dgv_Clientes.Columns("idLocalidad").Visible = False
        dgv_Clientes.Columns("idProvincia").Visible = False
        dgv_Clientes.Columns("idPersona").Visible = False
        dgv_Clientes.Columns("idDireccion").Visible = False
        dgv_Clientes.Columns("idResponsable").Visible = False

    End Sub



    Private Sub dgv_Clientes_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgv_Clientes.DoubleClick
        If dgv_Clientes.SelectedRows.Count <> 0 Then
            txt_nroCliente.Text = dgv_Clientes.SelectedRows(0).Cells("nroCliente").Value.ToString
            cmb_responsable_inscripto.SelectedValue = dgv_Clientes.SelectedRows(0).Cells("idResponsable").Value
            txt_nombre.Text = dgv_Clientes.SelectedRows(0).Cells("nombre").Value.ToString
            txt_apellido.Text = dgv_Clientes.SelectedRows(0).Cells("apellido").Value.ToString
            btm_aceptar.Enabled = True
        End If
    End Sub





    Private Sub btm_cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btm_cancelar.Click
        Close()
    End Sub

    Private Sub btm_aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btm_aceptar.Click
        If txt_nroCliente.Text <> "" Then
            cliente = funcion.obtenerCliente(txt_nroCliente.Text)
        End If

        Close()
    End Sub
    Function abrirformulario(ByRef Cliente As Cliente) As Cliente
        Dim buscarCliente As New BuscarCliente
        buscarCliente.ShowDialog()


        Return buscarCliente.cliente
    End Function
End Class